home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / db3stock / slinboxm.prg < prev    next >
Text File  |  1986-04-12  |  545b  |  14 lines
  1. * ------------------------------------------------------------------
  2. * SLINBOXM.prg - draws a single line box in the middle of the screen
  3. * ------------------------------------------------------------------
  4. * define MSG as a str <55 chars before entering this routine
  5. SET COLOR TO 7/0
  6. @ 11,12 SAY "┌───────────────────────────────────────────────────────┐"
  7. @ 12,12 SAY "│"
  8. @ 12,68 SAY "│"
  9. @ 13,12 SAY "└───────────────────────────────────────────────────────┘"
  10. set color to 15/0
  11. @12,(80-len(msg))/2 say msg
  12. set color to 7/0
  13. RETURN
  14.